home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / simulare.sit / Simula 4.07 Reference / card_31928.txt < prev    next >
Text File  |  1989-05-02  |  3KB  |  163 lines
  1. -- card: 31928 from stack: in.07 Reference
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13647
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=325 top=161 right=183 bottom=354
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: :=
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 5983
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A004
  31. -- rect: left=252 top=80 right=102 bottom=281
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: "..."
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to card id 15821
  43. end mouseUp
  44.  
  45.  
  46.  
  47.  
  48. -- part 3 (button)
  49. -- low flags: 00
  50. -- high flags: 2004
  51. -- rect: left=252 top=102 right=124 bottom=281
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: text utilities
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   go to card id 26423
  63. end mouseUp
  64.  
  65.  
  66.  
  67.  
  68. -- part 4 (button)
  69. -- low flags: 00
  70. -- high flags: A004
  71. -- rect: left=315 top=223 right=245 bottom=351
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: <, ...
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   go to card id 23690
  83. end mouseUp
  84.  
  85.  
  86.  
  87.  
  88. -- part 5 (field)
  89. -- low flags: 00
  90. -- high flags: 0002
  91. -- rect: left=362 top=73 right=276 bottom=480
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 9
  97. -- style flags: 0
  98. -- line height: 12
  99. -- part name: 
  100.  
  101.  
  102. -- part 6 (button)
  103. -- low flags: 00
  104. -- high flags: A004
  105. -- rect: left=252 top=124 right=146 bottom=281
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: &
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   go to card id 23331
  117. end mouseUp
  118.  
  119.  
  120.  
  121.  
  122. -- part contents for background part 1
  123. ----- text -----
  124. Constant text values are created with  "..."
  125. Alterable text values are created with the 
  126. utilities BLANKS and COPY. 
  127. The text concatenation operator '&' also 
  128. creates alterable strings.
  129.  
  130. Text values are assigned to each other with the operator := 
  131. If the assigned text is longer than the new value it is 
  132. padded with spaces.  A special case is when NOTEXT is 
  133. assigned to a text value in which case it is effectively blanked.
  134.  
  135. Text values are compared with the six usual operators. 
  136.  
  137. Text values  are equal if they are both empty or have the 
  138. same length and same character sequence.  A text value 
  139. ranks lower if it is empty or the first non-equal character ranks lower.
  140.  
  141.  
  142. -- part contents for background part 2
  143. ----- text -----
  144. Types - Text values
  145.  
  146. -- part contents for card part 5
  147. ----- text -----
  148. Text t;
  149. t:-blanks(8);
  150. t:="ABCDEFGH";
  151. ! same effect as :;
  152. t:-copy("ABCDEFGH");
  153.  
  154. t:="123456"
  155. if t="123456  " then 
  156.     OK;
  157.  
  158. t:=notext;
  159. if t=blanks(8) then
  160.     OK;
  161. t:="ABCDEF";
  162. if t<"ABCE" then
  163.    OK;